home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tcppr1 / tcpprosp.frm (.txt) < prev    next >
Visual Basic Form  |  1999-07-08  |  4KB  |  136 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSplash 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   4830
  5.    ClientLeft      =   255
  6.    ClientTop       =   1410
  7.    ClientWidth     =   3840
  8.    ClipControls    =   0   'False
  9.    ControlBox      =   0   'False
  10.    Icon            =   "tcpprosplash.frx":0000
  11.    KeyPreview      =   -1  'True
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4830
  16.    ScaleWidth      =   3840
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.Frame Frame1 
  20.       Height          =   4695
  21.       Left            =   120
  22.       TabIndex        =   0
  23.       Top             =   0
  24.       Width           =   3615
  25.       Begin VB.Timer Timer1 
  26.          Interval        =   1
  27.          Left            =   240
  28.          Top             =   3240
  29.       End
  30.       Begin VB.Image Image2 
  31.          Height          =   480
  32.          Left            =   1560
  33.          Picture         =   "tcpprosplash.frx":000C
  34.          Top             =   2160
  35.          Width           =   480
  36.       End
  37.       Begin VB.Line Line1 
  38.          X1              =   120
  39.          X2              =   3480
  40.          Y1              =   3840
  41.          Y2              =   3840
  42.       End
  43.       Begin VB.Label Label2 
  44.          Alignment       =   2  'Center
  45.          Caption         =   "Click to continue (or try to click the flying TCP Pro2 icon."
  46.          Height          =   375
  47.          Left            =   120
  48.          TabIndex        =   2
  49.          Top             =   3360
  50.          Width           =   3375
  51.       End
  52.       Begin VB.Label Label3 
  53.          Alignment       =   2  'Center
  54.          Caption         =   "by Daniel Errante"
  55.          Height          =   255
  56.          Left            =   120
  57.          TabIndex        =   1
  58.          Top             =   1200
  59.          Width           =   3375
  60.       End
  61.       Begin VB.Image Image1 
  62.          Height          =   660
  63.          Left            =   360
  64.          Picture         =   "tcpprosplash.frx":0316
  65.          Top             =   360
  66.          Width           =   2865
  67.       End
  68.       Begin VB.Image Image3 
  69.          Height          =   480
  70.          Left            =   1560
  71.          Picture         =   "tcpprosplash.frx":1C43
  72.          Top             =   2160
  73.          Width           =   480
  74.       End
  75.       Begin VB.Label Label1 
  76.          Caption         =   "TCP Pro2 
  77.  1999 Daniel Errante.  All rights reserved."
  78.          Height          =   495
  79.          Left            =   120
  80.          TabIndex        =   3
  81.          Top             =   4080
  82.          Width           =   3375
  83.       End
  84.    End
  85. Attribute VB_Name = "frmSplash"
  86. Attribute VB_GlobalNameSpace = False
  87. Attribute VB_Creatable = False
  88. Attribute VB_PredeclaredId = True
  89. Attribute VB_Exposed = False
  90. Option Explicit
  91. Private Sub Form_Click()
  92. Form1.Show
  93. Unload Me
  94. End Sub
  95. Private Sub Form_Load()
  96.     Load Form1
  97.     DoEvents
  98. End Sub
  99. Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  100. MsgBox "Contragulations, you clicked me, the flying TCP Pro2 icon!", vbExclamation
  101. Form1.Show
  102. Unload Me
  103. End Sub
  104. Private Sub Image3_Click()
  105. Form1.Show
  106. Unload Me
  107. End Sub
  108. Private Sub Timer1_Timer()
  109. Image2.Left = Image2.Left + 200
  110. Image2.Top = Image2.Top + 200
  111. If Image2.Left >= 3120 Then Image2.Left = 0
  112. If Image2.Top >= 4120 Then Image2.Top = 0
  113. End Sub
  114. Private Sub Timer2_Timer()
  115. End Sub
  116. Private Sub Frame1_Click()
  117. Form1.Show
  118. Unload Me
  119. End Sub
  120. Private Sub Image1_Click()
  121. Form1.Show
  122. Unload Me
  123. End Sub
  124. Private Sub Image2_Click()
  125. Form1.Show
  126. Unload Me
  127. End Sub
  128. Private Sub Label1_Click()
  129. Form1.Show
  130. Unload Me
  131. End Sub
  132. Private Sub Label3_Click()
  133. Form1.Show
  134. Unload Me
  135. End Sub
  136.